home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / mac / Time Warp / Time Warp.DXR / Shared_28.ls < prev    next >
Encoding:
Text File  |  1997-05-23  |  424 b   |  17 lines
  1. on unsetQT channel
  2.   if the castNum of sprite channel = 0 then
  3.     exit
  4.   end if
  5.   getQTname(channel)
  6.   set QTname to the result
  7.   if QTname contains ".MOV" then
  8.     puppetSprite(channel, 1)
  9.     set the movieRate of sprite channel to 0
  10.     if the controller of cast QTname = 1 then
  11.       set the controller of cast QTname to 0
  12.     end if
  13.     set the directToStage of cast QTname to 0
  14.   end if
  15.   puppetSprite(channel, 0)
  16. end
  17.